home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / DatePanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  3.9 KB  |  203 lines
  1. /*
  2. **    DatePanel.c
  3. **
  4. **    Editing panel for date selection
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #ifndef _GLOBAL_H
  11. #include "Global.h"
  12. #endif
  13.  
  14. enum    {    GAD_MONTH=1,GAD_DAY,GAD_COMMENT,GAD_USE,GAD_CANCEL };
  15.  
  16. STATIC STRPTR __saveds __stdargs
  17. ShowMonth(struct Gadget *SomeGadget,LONG Level)
  18. {
  19.     return(LocaleString(Level + MSG_DATEPANEL_JANUARY_TXT));
  20. }
  21.  
  22. BOOL
  23. DatePanel(struct Window *Parent,struct TimeDateNode *Node)
  24. {
  25.     STATIC BYTE MaxDays[12] = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
  26.  
  27.     struct LayoutHandle    *Handle;
  28.     struct TimeDateNode     LocalNode;
  29.     BOOL             Result = FALSE;
  30.  
  31.     LocalNode = *Node;
  32.  
  33.     if(Handle = LT_CreateHandleTags(Parent -> WScreen,
  34.         LH_LocaleHook,    &LocaleHook,
  35.         LH_ExitFlush,    FALSE,
  36.     TAG_DONE))
  37.     {
  38.         struct Window *PanelWindow;
  39.  
  40.         LT_New(Handle,
  41.             LA_Type,    VERTICAL_KIND,
  42.         TAG_DONE);
  43.         {
  44.             LT_New(Handle,
  45.                 LA_Type,    VERTICAL_KIND,
  46.             TAG_DONE);
  47.             {
  48.                 LT_New(Handle,
  49.                     LA_Type,        SliderType,
  50.                     LA_LabelID,        MSG_DATEPANEL_MONTH_GAD,
  51.                     LA_HighLabel,        TRUE,
  52.                     LA_BYTE,        &LocalNode . Header . Month,
  53.                     LA_ID,            GAD_MONTH,
  54.                     LA_Chars,        16,
  55.                     GTSL_Max,        11,
  56.                     GTSL_LevelFormat,    "%s",
  57.                     GTSL_DispFunc,        ShowMonth,
  58.                     LASL_FullCheck,        TRUE,
  59.                 TAG_DONE);
  60.  
  61.                 LT_New(Handle,
  62.                     LA_Type,        SliderType,
  63.                     LA_LabelID,        MSG_DATEPANEL_DAY_GAD,
  64.                     LA_HighLabel,        TRUE,
  65.                     LA_BYTE,        &LocalNode . Header . Day,
  66.                     LA_ID,            GAD_DAY,
  67.                     GTSL_Min,        1,
  68.                     GTSL_Max,        MaxDays[LocalNode . Header . Month],
  69.                     LASL_FullCheck,        TRUE,
  70.                 TAG_DONE);
  71.  
  72.                 LT_New(Handle,
  73.                     LA_Type,    XBAR_KIND,
  74.                 TAG_DONE);
  75.  
  76.                 LT_New(Handle,
  77.                     LA_Type,    STRING_KIND,
  78.                     LA_LabelID,    MSG_GLOBAL_COMMENT_GAD,
  79.                     LA_STRPTR,    LocalNode . Header . Comment,
  80.                     GTST_MaxChars,    19,
  81.                 TAG_DONE);
  82.  
  83.                 LT_EndGroup(Handle);
  84.             }
  85.  
  86.             LT_New(Handle,
  87.                 LA_Type,VERTICAL_KIND,
  88.             TAG_DONE);
  89.             {
  90.                 LT_New(Handle,
  91.                     LA_Type,    XBAR_KIND,
  92.                     LAXB_FullSize,    TRUE,
  93.                 TAG_DONE);
  94.  
  95.                 LT_EndGroup(Handle);
  96.             }
  97.  
  98.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  99.                 LAGR_SameSize,    TRUE,
  100.                 LAGR_Spread,    TRUE,
  101.             TAG_DONE);
  102.             {
  103.                 LT_New(Handle,
  104.                     LA_Type,    BUTTON_KIND,
  105.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  106.                     LA_ID,        GAD_USE,
  107.                     LABT_ReturnKey,    TRUE,
  108.                     LABT_ExtraFat,    TRUE,
  109.                 TAG_DONE);
  110.  
  111.                 LT_New(Handle,
  112.                     LA_Type,    BUTTON_KIND,
  113.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  114.                     LA_ID,        GAD_CANCEL,
  115.                     LABT_EscKey,    TRUE,
  116.                     LABT_ExtraFat,    TRUE,
  117.                 TAG_DONE);
  118.  
  119.                 LT_EndGroup(Handle);
  120.             }
  121.  
  122.             LT_EndGroup(Handle);
  123.         }
  124.  
  125.         if(PanelWindow = LT_Build(Handle,
  126.             LAWN_TitleID,        MSG_DATEPANEL_DATE_SETTINGS_TXT,
  127.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  128.             LAWN_HelpHook,        &GuideHook,
  129.             LAWN_Parent,        Parent,
  130.             WA_DepthGadget,        TRUE,
  131.             WA_CloseGadget,        TRUE,
  132.             WA_DragBar,        TRUE,
  133.             WA_RMBTrap,        TRUE,
  134.             WA_Activate,        TRUE,
  135.             WA_SimpleRefresh,    TRUE,
  136.         TAG_DONE))
  137.         {
  138.             struct IntuiMessage    *Message;
  139.             BOOL             Done = FALSE;
  140.             ULONG             MsgClass;
  141.             struct Gadget        *MsgGadget;
  142.  
  143.             GuideContext(CONTEXT_DATE);
  144.  
  145.             LT_ShowWindow(Handle,TRUE);
  146.  
  147.             PushWindow(PanelWindow);
  148.  
  149.             do
  150.             {
  151.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  152.                     break;
  153.  
  154.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  155.                 {
  156.                     MsgClass    = Message -> Class;
  157.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  158.  
  159.                     LT_ReplyIMsg(Message);
  160.  
  161.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  162.                         Done = TRUE;
  163.  
  164.                     if(MsgClass == IDCMP_MOUSEMOVE && MsgGadget -> GadgetID == GAD_MONTH)
  165.                     {
  166.                         LT_SetAttributes(Handle,GAD_DAY,
  167.                             GTSL_Max,    MaxDays[LocalNode . Header . Month],
  168.                         TAG_DONE);
  169.                     }
  170.  
  171.                     if(MsgClass == IDCMP_GADGETUP)
  172.                     {
  173.                         switch(MsgGadget -> GadgetID)
  174.                         {
  175.                             case GAD_USE:
  176.  
  177.                                 LT_UpdateStrings(Handle);
  178.  
  179.                                 *Node = LocalNode;
  180.  
  181.                                 Result = Done = TRUE;
  182.  
  183.                                 break;
  184.  
  185.                             case GAD_CANCEL:
  186.  
  187.                                 Done = TRUE;
  188.                                 break;
  189.                         }
  190.                     }
  191.                 }
  192.             }
  193.             while(!Done);
  194.  
  195.             PopWindow();
  196.         }
  197.  
  198.         LT_DeleteHandle(Handle);
  199.     }
  200.  
  201.     return(Result);
  202. }
  203.